home *** CD-ROM | disk | FTP | other *** search
/ Amiga News 96 / Amiga News 96.iso / amig_ad_os / avm / prog / source / playdate.avmsrc < prev    next >
Text File  |  1977-12-31  |  2KB  |  79 lines
  1. startrecord=true
  2. label=playdate
  3. nodetype=14
  4. comment=We're going to play the month and day
  5. nextactiontype=3
  6. nextactionaction=
  7. endrecord=true
  8. startrecord=true
  9. label=
  10. nodetype=8
  11. line1=procedure
  12. line2=parse arg actualDate
  13. line3=
  14. line4=
  15. line5=
  16. line6=
  17. line7=
  18. line8=
  19. line9=
  20. line10=
  21. nextactiontype=3
  22. nextactionaction=
  23. endrecord=true
  24. startrecord=true
  25. label=
  26. nodetype=8
  27. line1=dateformat = getclip('AVMDateFormat')
  28. line2=if dateformat = "" then dateformat = "%month %day"
  29. line3=else if upper(dateformat) = "NONE" then dateformat = ""
  30. line4=
  31. line5=
  32. line6=
  33. line7=
  34. line8=
  35. line9=
  36. line10=
  37. nextactiontype=3
  38. nextactionaction=
  39. endrecord=true
  40. startrecord=true
  41. label=
  42. nodetype=8
  43. line1=do i = 1 to words(dateformat)
  44. line2=  if upper(word(dateformat, i)) = "%MONTH" then
  45. line3=    call playAVoice('avm:voices/month'||numberToMonth(substr(actualDate, 5, 2)+0))
  46. line4=  else if upper(word(dateformat, i)) = "%DAY" then
  47. line5=    call playddnumber(substr(actualDate, 7, 2))
  48. line6=  else
  49. line7=    call playAVoice(word(dateformat, i))
  50. line8=end
  51. line9=
  52. line10=
  53. nextactiontype=3
  54. nextactionaction=
  55. endrecord=true
  56. startrecord=true
  57. label=
  58. nodetype=14
  59. comment=We're done
  60. nextactiontype=2
  61. nextactionaction=return
  62. endrecord=true
  63. startrecord=true
  64. label=numberToMonth
  65. nodetype=8
  66. line1=procedure
  67. line2=parse arg m
  68. line3=m_.1='january';m_.2='february';m_.3='march'
  69. line4=m_.4='april';m_.5='may';m_.6='june'
  70. line5=m_.7='july';m_.8='august';m_.9='september'
  71. line6=m_.10='october';m_.11='november';m_.12='december'
  72. line7=
  73. line8=
  74. line9=
  75. line10=
  76. nextactiontype=2
  77. nextactionaction=return m_.m
  78. endrecord=true
  79.